home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / utilities / comms / irc / grapevine / rexx / paste.gvrexx < prev    next >
Encoding:
Text File  |  1995-07-13  |  246 b   |  13 lines
  1. /* Grapevine Paste from clipboard -- paste.rexx -- Requires CLIP: to be mounted (clip-handler) */
  2. options results
  3.  
  4. call open(1,'clip:0',r)
  5.  
  6. do while eof(1)=0
  7.     text=readln(1)
  8.     if eof(1)=0 then address gv_rexx.01 'say 'text
  9. end
  10.  
  11. call close(1)
  12. exit
  13.